(for-each print (read-file (car argv)))
